home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
300 Great Games for Mac
/
300 games for mac.iso
/
Trivia
/
President Quiz
/
president quiz
/
stack.txt
< prev
Wrap
Text File
|
1990-04-02
|
4KB
|
132 lines
-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2697
-- card count: 19
-- first card id: 5160
-- list block id: 3308
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 3
-- free size: 2048 bytes
-- total size: 32768 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
hide MenuBar
end openStack
on doScore
global presName, rightAnswer, thisAnswer, score, alreadyAnswered, numRight, totalNumber
if alreadyAnswered is true
then
put "You've already answered this question." into bg field "response"
showField
else
put true into alreadyAnswered
if thisAnswer = rightAnswer
then
put "Right!" into bg field "response"
showField
-- calculate
add 1 to numRight
put numRight/totalNumber into score
put round (score * 100) into score
showScore
else
put "Wrong. The correct answer is" && rightAnswer &"." into bg field "response"
showField
end if
end if
showScore
end doScore
on showScore
global scorePhrase, score
put score & "." into last word of scorePhrase
put scorePhrase into bg field "score"
end showScore
on showField
lock screen
show bg field "Response"
unlock screen with iris open fast
wait 1 sec
hide bg field "response"
end showField
on reset
global scorePhrase, score, numRight, totalNumber
get number of cards of background id 2697
put it into totalNumber
put 0 into numRight
put 0 into score
put "Your score is now 0." into scorePhrase
hide bg field "response"
end reset
on through
go to card id 5160
show cd button id 6
end through
on ux
go to card 5160
show cd button id 9
end ux